0 REM ŭˠ
1 DIM A$(16),FRMEL$(255),SPRECH$(1000),VARIAB$(4000)
2 GOSUB 500
5 REM 
10 TRAP 3100:GOSUB 29000:REM ROUTINE IN PAGE 6
20 REM ̠
30 TRAP 3400:CLOSE #1:OPEN #1,8,0,"V:"
40 REM AB HIER BEISPIEL "EMOTIONAL TALKING"
50 ? #1;CHR$(IY)
51 ? #1;CHR$(MM)
52 ? #1;CHR$(OW)
53 ? #1;CHR$(SH)
54 ? #1;CHR$(AX)
55 ? #1;CHR$(NN1)
56 ? #1;CHR$(AX)
57 ? #1;CHR$(EL)
58 ? #1;CHR$(PA5)
59 ? #1;CHR$(PA5)
60 ? #1;CHR$(TT2)
61 ? #1;CHR$(AO)
62 ? #1;CHR$(AO)
63 ? #1;CHR$(PA3)
64 ? #1;CHR$(KK1)
65 ? #1;CHR$(IH)
66 ? #1;CHR$(NG)
67 ? #1;CHR$(PA5)
68 ? #1;CHR$(PA5)
69 ? #1;CHR$(PA5)
91 ? #1;CHR$(PA5)
92 ? #1;CHR$(PA5)
100 ZAEHL=1:REM Š
101 ? "}Geben Sie bitte Ihre Phonemkette ein!"
102 ? "Bitte nach Eingabe jedes einzelnen":? "Phonems <Return> druecken."
103 ? "Abschluss der Eingabe durch <Return>":? "ohne Phonem.":? :? :? :? :? 
110 INPUT A$
111 IF A$="NEU" THEN SPRECH$="":VARIAB$="":GOTO 100
112 IF A$<>"" THEN 120
115 CLOSE #1:OPEN #1,8,0,"V:":FOR I=1 TO ZAEHL-1:? #1;SPRECH$(I,I):NEXT I:? #1;CHR$(52)
119 GOTO 101
120 FRMEL$="ABHOL=":FRMEL$(LEN(FRMEL$)+1)=A$
125 POKE 559,0
130 POKE 752,1:? "";FRMEL$:? :? :? "CONT":? ""
131 POKE 842,13:FOR I=1 TO 3:? :NEXT I:END 
132 POKE 842,12:POKE 752,0
135 IF ABHOL=0 THEN A$="???":ABHOL=48
136 VARIAB$(LEN(VARIAB$)+1)=A$:VARIAB$(LEN(VARIAB$)+1)=","
140 SPRECH$(LEN(SPRECH$)+1)=CHR$(ABHOL)
141 POSITION 2,8:FOR JJ=1 TO 9:? "                               ":NEXT JJ
142 POSITION 0,15:? VARIAB$;:POSITION 2,10:ZAEHL=ZAEHL+1:POKE 559,34:GOTO 110
499 REM AB HIER LAUTEDEFINITIONEN! *
500 PA1=48+0
501 PA2=48+1
502 PA3=48+2
503 PA4=48+3
504 PA5=48+4
505 OY=48+5
506 AY=48+6
507 EH=48+7
508 KK3=48+8
509 PP=48+9
510 JH=48+10
511 NN1=48+11
512 IH=48+12
513 TT2=48+13
514 RR1=48+14
515 AX=48+15
516 MM=48+16
517 TT1=48+17
518 DH1=48+18
519 IY=48+19
520 EY=48+20
521 DD1=48+21
522 DH1=48+22
523 AO=48+23
524 AA=48+24
525 YY2=48+25
526 AE=48+26
527 HH1=48+27
528 BB1=48+28
529 TH=48+29
530 UH=48+30
531 UW2=48+31
532 AW=48+32
533 DD2=48+33
534 GG3=48+34
535 VV=48+35
536 GG1=48+36
537 SH=48+37
538 ZH=48+38
539 RR2=48+39
540 FF=48+40
541 KK2=48+41
542 KK1=48+42
543 ZZ=48+43
544 NG=48+44
545 LL=48+45
546 WW=48+46
547 XR=48+47
548 WH=48+48
549 YY1=48+49
550 CH=48+50
551 ER1=48+51
552 ER2=48+52
553 OW=48+53
554 DH2=48+54
555 SS=48+55
556 NN2=48+56
557 HH2=48+57
558 OR=48+58
559 AR=48+59
560 YR=48+60
561 GG2=48+61
562 EL=48+62
563 BB2=48+63
564 UW1=48+22
888 RETURN 
3100 ? "}Bitte laden Sie erst die Sprachan-"
3110 ? "steuerungsroutine mit":? :? :? :? "''ENTER D:INIT.LST''":? :? :? :? "ein.":FOR I=1 TO 11:? :NEXT I:END 
3400 TRAP 3100:GOSUB 29002:GOTO 30
29000 READ D
29001 IF PEEK(1536)=D THEN RETURN 
29002 RESTORE 
29005 FOR I=1536 TO 1707
29010 READ D:POKE I,D
29020 NEXT I
29030 A=USR(1536)
29040 RETURN 
30000 DATA 104,169,86,141,44,3,169,17,141,45
30002 DATA 3,169,6,141,46,3,96,28,6,51
30004 DATA 6,69,6,70,6,169,6,170,6,169
30006 DATA 56,141,2,211,169,127,141,0,211,169
30008 DATA 60,141,2,211,169,0,141,255,6,160
30010 DATA 1,96,169,56,141,2,211,169,0,141
30012 DATA 0,211,169,60,141,2,211,160,1,96
30014 DATA 96,172,255,6,153,253,3,201,155,240
30016 DATA 9,200,140,255,6,240,3,160,1,96
30018 DATA 160,0,185,253,3,201,48,144,49,201
30020 DATA 112,176,45,56,233,48,141,0,211,32
30022 DATA 164,6,9,64,141,0,211,32,164,6
30024 DATA 41,63,141,0,211,173,0,211,16,251
30026 DATA 165,17,240,22,200,204,255,6,208,208
30028 DATA 169,0,141,255,6,160,1,96,160,132
30030 DATA 169,0,141,255,6,96,160,128,169,0
30032 DATA 141,255,6,96,162,0,202,208,253,96
30034 DATA 96,96
